#lang planet neil/sicp
(define (gcd a b)
  (if (= b 0)
      a
      (gcd b (remainder a b))))
(define (mod a b)
  (cond
    ((< a b) a)
    ((> (- a b) b) (mod (- a b) b))
    ((< (- a b) b) (- a b))
    (else 0)))